home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Invenzioni & Inventori
/
Invenzioni and Inventori (Eclectica Publishing) (1996).ISO
/
invenzio
/
timeline.dir
/
00068_Script_68
< prev
next >
Wrap
Text File
|
1983-01-29
|
2KB
|
64 lines
ON ARCHIVIO
if (the mouseh >= 51 and the mouseh <= 548) and (the mousev >=0 and the mousev <= 429) then
GLOBAL LISTA, TIPO, NOME, MATERIALE,utente,var_dll
set cst to the mousecast
set var_dll to 0
SET TIPO= chars(STRING(THE CASTTYPE OF CAST (cst )),1,length(STRING(THE CASTTYPE OF CAST (cst ))))
if tipo ="digitalVideo" then set materiale to the fileName of cast (cst)
if tipo ="bitmap" then
if the height of cast (cst)=480 and the width of cast (cst)=640 then
if the machineType<256 then
linkdll "stagetc"
put StageToCast(mNew,0,51,430,570) into mauro
set materiale to mauro(mgethandle)
mauro(mDispose)
-- UNLINKDLL "stagetc"
else
global copyObj, savePicHandle, pictureFlag,cobalto
linkdll "dataproj"
put dataproj (mNew ) into cobalto
cobalto(mSetCaptureRect,51,0,570,430)
--cobalto(mdispose)
end if
else
put the picture of cast (cst) into materiale
end if
end if
if tipo ="text" then
SET XX=1
SET MATERIALE= ""
REPEAT WHILE XX<=the number of lines of the text of cast (cst)
set materiale to MATERIALE && line XX of the text of cast (cst)
SET XX=XX+1
END REPEAT
END IF
global mywindow
if objectp(mywindow) then forget mywindow
if the machinetype = 256 then
set ttt=char 1 to 2 of the pathName&"\invenzio\NOME.DIR"
else
set ttt="INVENZIONI:INVENZIO:NOME.DIR"
end if
set mywindow to window "RACCOLTA"
SET THE FILENAME OF MYWINDOW TO TTT
-- set the rect of mywindow to mywindowrect
set the titlevisible of mywindow to true
set the windowType of window ttt to 0
open mywindow
end if
end